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TABLA "3 - CBM - ASCII - CHARACTERS 



00 




64 40 


@ 




128 80 




192 CO 


B 


1 01 




65 41 


a 


A 


129 81 




193 CI 


A IS 


2 02 




66 42 


b 


B 


130 82 




194 C2 


b m 


3 03 


STOP 


67 43 


c 


C 


131 83 


[D]LOAD& RUN 


195 C3 


c B 


4 04 




68 44 


d 


D 


132 84 




196 C4 


D H 


5 05 




69 45 


e 


E 


133 85 




197 C5 


E □ 


6 06 




70 46 


f 


F 


134 86 




198 C6 


F E3 


7 07 


BELL* 


71 47 


g 


C 


135 87 




199 C7 


c [□ 


8 08 




72 48 


h 


H 


136 88 




200 C8 


h a 


9 09 


TAB* 


73 49 


i 


1 


137 89 


SET TAB* 


201 C9 


1 


3 


10 0A 


LINE FEED 


74 4A 


J 


J 


138 8A 




202 CA 


J 


3 


11 OB 




75 4B 


k 


K 


139 8B 




203 CB 


K 


3 


12 0C 




76 4C 


1 


L 


140 8C 




204 CC 


L 


a 


13 0D 


RETURN 


77 4D 


m 


M 


141 8D 


SHIFT-RETURN 


205 CD 


M 


3 


14 0E 


TEXT* 


78 4E 


n 


N 


142 8E 


GRAPHIC* 


206 CE 


N 


2 


15 OF 


SET TOP 3 


79 4F 





O 


143 8F 


SET BOTTOM 3 


207 CF 


O 


3 


16 10 




80 50 


P 


P 


144 90 




208 DO 


P 


3 


17 11 


CURSOR DOWN 


81 51 


q 


Q 


145 91 


CURSOR UP 


209 Dl 


Q 


a 


18 12 


REVERSE 


82 52 


r 


R 


146 92 


REVERSE OFF 


210 D2 


R 


^ 


19 13 


HOME CURSOR 


83 53 


s 


S 


147 93 


CLEAR SCREEN 


211 D3 


S 


a 


20 14 


DELETE CHR. 


84 54 


t 


T 


148 94 


INSERT CHR. 


212 D4 


T 


□ 


21 15 


DELETE LINE* 


85 55 


u 


U 


149 95 


INSERT LINE* 


213 D5 


U 


a 


22 16 


ERASE END* 


86 56 


V 


V 


150 96 


ERASE START* 


214 D6 


V 


a 


23 17 




87 57 


w 


w 


151 97 




215 D7 


w 


m 


24 18 




88 58 


X 


X 


152 98 




216 D8 


X 


1 


25 19 


SCROLL UP* 


89 59 


y 


Y 


153 99 


SCROLL DOWN* 


217 D9 


Y 


3 


26 1A 




90 5A 


z 


z 


154 9A 




218 DA 


z 


m 


27 IB 


ESCAPE* 


91 5B 


[ 




155 9B 




219 DB EH 


28 1C 




92 5C 


\ 




156 9C 




220 DC 


D 


29 ID 


CURSOR RIGHT 


93 5D 


] 




157 9D 


CURSOR LEFT 


221 DD 


S rt 


30 IE 




94 5E 


? 




158 9E 




222 DE 


BS El 


31 IF 




95 5F 


«- 




159 9F 




223 DF 


SS H 


32 20 


SPACE 


96 60 


SPACE 2 


160 A0 


SHIFT-SPACE 


224 E0 


REPEATS 2 


33 21 


1 


97 61 


; 




161 Al 


D 


225 El 




34 22 


QUOTE " 


98 62 


ii 




162 A2 


a 


226 E2 




35 23 


# 


99 63 


# 




163 A3 


□ 


227 E3 




36 24 


$ 


100 64 


$ 




164 A4 


□ 


228 E4 




37 25 


% 


101 65 


% 




165 A5 


□ 


229 E5 




38 26 


& 


102 66 


6 




166 A6 


m 


230 E6 




39 27 


i 


103 67 


1 




167 A7 


□ 


231 E7 




40 28 


( 


104 68 


( 




168 A8 


B 


232 E8 




41 29 


) 


105 69 


) 




169 A9 


82 H 


233 E9 




42 2A 


* 


106 6A 


* 




170 AA 


□ 


234 EA 




43 2B 


+ 


107 6B 


+ 




171 AB 


m 


235 EB 




44 2C 


/ 


108 6C 


# 




172 AC 


Q 


236 EC 




45 2D 




109 6D 


- 




173 AD 


CB 


237 ED 




46 2E 


. 


110 6E 


. 




174 AE 


H 


238 EE 




47 2F 


/ 


111 6F 


/ 




175 AF 


□ 


239 EF 




48 30 





112 70 







176 B0 


ra 


240 F0 




49 31 


1 


113 71 


1 




177 Bl 


H 


241 Fl 




50 32 


2 


114 72 


2 




178 B2 


H 


242 F2 




51 33 


3 


115 73 


3 




179 B3 


ed 


243 F3 




52 34 


4 


116 74 


4 




180 B4 


□ 


244 F4 




53 35 


5 


117 75 


5 




181 B5 


c 


245 F5 




54 36 


6 


118 76 


6 




182 B6 


g 


246 F6 




55 37 


7 


119 77 


7 




183 B7 


a 


247 F7 




56 38 


8 


120 78 


8 




184 B8 


H 


248 F8 




57 39 


9 


121 79 


9 




185 B9 


H 


249 F9 




58 3A 




122 7A 






186 BA 


El □ 


250 FA 




59 3B 


/ 


123 7B 


/ 




187 BB 


£J 


251 FB 




60 3C 


> 


124 7C 


> 




188 BC 


a 


252 FC 




61 3D 


= 


125 7D 


= 




189 BD 


El 


253 FD 




62 3E 


< 


126 7E 


< 




190 BE 


E 


254 FE 




63 3F 


7 


127 7F 


7 




191 BF 


S 


255 FF 











G 



EL club commodore 



EDITORIAL 



roco a poco van llegando colaboracio- 
nes a nuestra Revista, pero todavia son 
pocas. Debemos poner entasis en que 
nuestros lectores no deben dejarse lle- 
var por un mal entendido sentido de 
verguenza, pues todos nosotros hemos 
empezado alguna vez. 

On suscriptor nos pregunta sobre el 
tipo de programas que nos interesan... 
Bien, en principio TODOS. No obstan- 
te... Juegos tenemos un buen numero y 
creemos que el interns de nuestros lec- 
tores se centra mas en aquellos progra- 
mas que representen alguna utilidad. 
Un inciso: suelen llamarse utilidades en 
argot informatico aquellos programas 
que facilitan el manejo o la programa- 
cion del ordenador (ayuda a la progra- 
macion, rutinas de renumeracion, 
etc.). Este tipo de programas suelen 
tener una longitud limitada, que, por 
otro lado, nos interesa porque nuestros 
listados para que sean claros consu- 
men mucha superficie, tienen un interes 
general y ayudan a entender el funcio- 
namiento del ordenador. Otro capitulo 
interesante es el de las aplicaciones, 
fundamentalmente por dos razones: por 
su interes en si mismas y porque pue- 
den ayudar al usuario que empieza a 
encontrar trabajos para su equipo que 
no habia previsto cuando decidio com- 
prarlo. 

Se nos pregunta tambien por la ma- 
nera de presentar las colaboraciones. 
En este aspecto es necesario enviar 
una cinta (o un disco) con el programa 
grabado y una explicacion lo mas ex- 
haustiva posible de su funcionamiento, 
memoria que necesita, etc... De la pre- 
paracion del listado para su publicacion 
ya nos encargamos nosotros. La cinta o 
el disco seran devueltos en el plazo 
mas breve posible con algun otro pro- 
grama grabado que trate sobre un tema 
que el mismo autor nos indique en su 



carta, si lo tenemos en nuestros archi- 
vos. Y de momento nada mas que vol- 
ver a nuestra eterna cancion: \A VER SI 
COLABORAMOS! pues esta es la Re- 
vista del usuario. m 



los 



TRUCOS 

Pokes variados para 

el VIC-20 

y el COMMODORE 64 

por P. MASATS 

Para simular la desconexion del 
equipo: COMMODORE 64, SYS 
64738 y VIC-20, SYS 64802. (jEstos 
POKEs son tan variados que hasta 
incluyen el SYS!). Para impedir el lis- 
tado de un programa: COMMODORE 
64, POKE 775,200 y VIC-20, el mis- 
mo. Para retornar a la normalidad: 
COMMODORE 64, POKE 775,167 y 
VIC-20, POKE 775,199. 

Para inhabilitar la tecla RUN/ 
STOP en el COMMODORE 64: POKE 
808,239. En el VIC-20: POKE 788, 
194. En el Caso del VIC este POKE 
interfere el funcionamiento del reloj 
interno (variables Tl y Tl$). 

Para recuperar el funcionamiento 
de la tecla RUN/ STOP: 

En el COMMODORE 64: POKE 
808 237 

En el VIC-20: POKE 788,171. ■ 
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VENTANA8. . . 


. . . PAGE 


8881 








LINE# 


LOC 


CODE 




LINE 






8001 


8068 








*=*833A 


. 


DIRECCION ORIGEN *833A CDEC. 826> BUFFER 1A CASSETTE DEL CBM8632 


0092 


033A 








VALTVP = *07 


; 


TIPO DE VARIABLE (0 NUM. 255 ALFA) 


0803 


833A 








INTFL = $88 


y 


SI ES NUM. , 128 ENTEROS 8C0MR FLOTANTE 


8004 


033A 








VARNAM = *42 


} 


BVTE DONDE EL SISTEMA OPERATIVO REGISTRA EL NOMBRE DE LA VAR. 


8805 


833A 








BVRR = *C18? 


; 


SUBRUTINA DE BUSQUEDA DE VARIABLES DE SISTEMA OPERATIVO 


8886 


833A 








; HRSTA HOUI, DEFINICION 


DEL ORIGEN V ETIQIJETAS 


880? 


833A 








BVAL 


; 


SUBRUTINA DE BUSQUEDfi DE VARIABLES ALFfl 


8888 


833A 








; EJEMPLO DE BUSQUEDA DE 


AB* 


8089 


033R 


A9 


41 




LDA #'A 




PRIMER CflRflCTER DE LA VARIABLE 


80 1 8 


833C 


A2 


42 




LDX #'B 


j 


SEGUNDO CARACTER 


0011 


033E 


85 


42 




STA VARNAM 






8812 


0348 


8A 






TXA 


; 


PASflR EL CONTENIDO DEL REGISTRO X AL ACUMULADOR 


0013 


8341 


09 


80 




OR A #128 


j 


DISTINTIVO ALFA (SEGUNDO CARACTER = SEGUNDO CARACTER+128> 


0014 


0343 


35 


43 




STfl VRRNRM+1 






0015 


8345 


R9 


FF 




LDA #255 






0016 


0347 


85 


0? 




STR VALTVP 




VARIABLE TIPO ALFA 


091? 


8349 


4C 


8? 


CI 


JMP BVRR 






08 IS 


034C 








.END 






ERRORS = 0088 












SVMBOL TABLE 












SVMBOL VALUE 










1 


BVRL 


e 


33A 




BVAR 


CIS? INTFL 


8088 


VALTVP 000? 


VARNAM 8042 












END OF RSSEMBLV 
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FICHEROS 



ficheros relativos 

4 (I) 



Em este articulo no vamos a hablar 
de ficheros en general Cello es tema 
para otros articulos) sino que nos limi- 
taremos a los ficheros Relativos. 

Un fichero Relativo se compone de 
registros, cuyo numero y longitud han 
sido definidos por el programador. 
A cada registro se le accede por su 
numero de orden relativo respecto al 
principio del fichero (de ahi su nom- 
bre). 



CREAGIdN DEL FICHERO 

Para crear un Relativo, lo primero es 
decidir cuantos registros desean usar- 
se y que longitud deben tener. La lon- 
gitud es la suma de los bytes a alma- 
cenar en cada registro mas uno, un 
CHR$(13), que utilizaremos como in- 
dicador de «fin de registro». La longi- 
tud maxima de los registros es de 
254 bytes. 

Por ejemplo, vamos a crear un fiche- 
ro Relativo de 100 registros de 50 by- 
tes cada uno (Cuadro 1). 

Mientras se ejecuta la instruccion 
PRINT #, el LED de error esta en rojo 
(50.RECORD NOT PRESENT) indicando 
que el registro al que hemos apuntado 
no existe y, por lo tanto, el DOS debe 
crearlo junto con todos los anteriores, 
lo que puede llevar un poco de tiempo. 



APERTURA DEL FICHERO 

Una vez creado el fichero, ya se le 
pueden efectuar grabaciones y lectu- 
ras de registros pero antes debere- 
mos abrirlo. Se puede leer solo parte 
de un registro pero, al grabarse, debe 
grabarse complete Para abrir el fiche- 
ro, utilizaremos la misma instruccion 
DOPEN # que utilizamos en la crea- 
cion pero esta vez no es necesario 
indicar la longitud de los registros 
(L50), puesto que el DOS ya la sabe. 
Si se le pone una longitud que no coin- 
cide con la definida en la creacion de 
este fichero, el DOS generara un men- 



por JORDI SASTRE 

saje 50,RECORD NOT PRESENT. Ejem- 
plo de apertura: 

DOPEN #1,« FICHERO.. 



GRABACION DE REGISTROS 

Para grabar registros es necesario 
seguir al pie de la letra las siguientes 
normas: 

• Antes de cualquier grabacion de- 
bemos posicionarnos al principio del 
registro sobre el que se desea grabar 
(instruccion RECORD*). 

• No puede utilizarse mas que una 
instruccion PRINT # para grabar los 
datos (al utilizar un segundo PRINT*, 
el DOS grabaria los datos en el regis- 
tro siguiente). Por tanto, si los datos a 
grabar no caben en una sola instruc- 
cion, antes deberan ponerse en una 
variable de cadena (por ejemplo B$) 



para luego grabaria de golpe con un 
unico PRINT*. 

• Si los datos a grabar van a leerse 
posteriormente mediante una instruc- 
cion INPUT*, estos deben separarse 
entre si con un CHRS(13). Por ejem- 
plo: 100 PRINT#1,A1$;CHR$(13);A2S; 
CHRS(13); ... etc., o bien: 120 B$ = 
A1$ + CHR$(13) + A2S + CHR$(13) ... 
etc/130 PRINT* 1,B$;. 

• El ultimo byte grabado en un re- 
gistro debe ser siempre un CHRS(13) 
seguido de un punto y coma (;), como 
puede observarse en los ejemplos. 

• Despues de grabar el registro me- 
diante el PRINT*, debe posicionarse 
de nuevo el puntero con una nueva 
instruccion RECORD*. 

• Cuando en un registro se graban 
menos bytes de los que permite su 
capacidad, el DOS pone a continuacion 
del ultimo caracter grabado una marca 
de «Fin de Registro» anulando cual- 
quier contenido posterior que hubiera 
en el mismo de anteriores grabacio- 
nes. Por tanto, no vale grabar solo par- 
te de un registro, hay que grabarlo 
entero. 

Tomada nota de lo expuesto, vease 
en el Cuadro 2 un ejemplo de graba- 
cion. 

LECTURA DE REGISTROS 

La lectura de registros ofrece mas 
libertad, puesto que pueden utilizarse 
tantas GET* s e INPUT#s como se de- 
see; incluso combinaciones de ellas. 
Para leer un registro solo hay que posi- 
cionarse al principio del mismo y se- 
guidamente leer. Por ejemplo Cua- 
dro 3. m 



CUADRO 1 



DOPEN #1,«FICHERO»,L50 
RECORD#1,100: PRINT#1 
DCLOSE#1 



REM 50 = Longitud de los registros 
REM Creacion de 100 registros 
REM Fin de Proceso. 



I CUADRO 2 

Y3§ = CHR$(13) 


DOPEN *1,«FICHERO» 


REM Apertura del Fichero. 


RECORD #1,(NR) 


REM Posicionado en registro NR. 


B$ = A1S + Y3S + A2S + Y3§ + 
STRS(A3)+Y3$ 


REM A1S A2S A3 = Datos a grabar. 


PRINT#1,B$; : RECORD* 1,(NR) 


REM Grabacion y reposicionado. 


DCLOSE#1 


REM Fin de Proceso. 



CUADRO 3 



DOPEN #1, «FICHERO» 
RECORD#1,(NR) 
INPUT* 1,A1S,A2S,A3 
DCLOSE#1 



REM Apertura del Fichero. 
REM Posicionado en registro NR. 
REM Lectura de Datos. 
REM Fin de Proceso. 



^ 
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RUN y FILL 




por E. MARTINEZ DE CARVAJAL 



do numero — 17 — despues. Observe- 
se que los espacios en bianco que hay 
entre las letras no se eliminan. 

APLICACION PRACTICA 

Esta funcion permite determinar la 
longitud real de una variable alfanume- 
rica. Si tenemos un fichero en el cual 
todos sus registros estan formateados 
(rellenados) con caracteres en bianco 
para que tengan la misma longitud, es- 
ta funcion nos da su longitud real an- 
tes del formateo. No tiene ninguna 
utilidad cuando la variable se llena me- 
diante un INPUT por teclado, ya que 
esta sentencia ya trunca automatica- 
mente el literal que se escriba. 

FUNCION FILLS (Rellenar) 

Esta funcion sirve para llenar un lite- 
ral con un caracter dado. 



ARGUMENTOS DE ENTRADA 

X1 Valor ASCII del caracter con que 
queremos llenar X1S. 

X2 Numero de caracteres con que 
queremos llenar X1$. Es la lon- 
gitud con que quedara. 

ARGUMENTOS DE SALIDA 

X1S String rellenado. 

EJEMPLO 

10 X1=48 

20 X2 = 10 

30 GOSUB 1000 : FUNCI6N FILLS 

40 PRINT X1S 

50 PRINT LEN(X1S) 

60 END 

RUN 



0000000000 
10 

APLICACIONES 

Esta funcion se utiliza normalmente 
para inicializar registros o variables 
con un cierto valor. Por ejemplo, varia- 
bles alfanumericas que se utilicen pa- 
ra subrayar textos en la pantalla o im- 
presora, para llenar de caracteres en 
bianco un registro, etc... 

EJEMPLO 

10 X1=ASC('@') 

20 X2 = 22 

30 GOSUB 1000 : REM FUNCION 
FILLS 

40 SUBS = X1S : REM VARIABLE 
PARA SUBRAYAR TEXTOS EN 
PANTALLA. ■ 



PROGRAMS :08POS1 


PROGRAMS :03TRUN 




PROGRAMA:09FILL 


1000 


REM FUNCION FOS 












1002 


REM 












1005 


REM DflTOS DE ENTRROfl 


1000 


REM TRUN 




1000 


REM FUNCION FILL* 


1010 


REM X1*=STPING BONOE SE BUSCfi 


1010 


REM 




1018 


REM 


1020 


REM X2*=STRING fl BUSCflR 


1028 


REM DflTOS DE EHTRHDfl 




1 020 


REM DflTOS DE ENTRFlOfl 


1030 


REM Xl=POSICION INICIflL 


1038 


REM 




1030 


REM Xl=CODIGQ ASCII 


1035 


REM 


1040 


REM X1*=STRING Fl TRUNCflR 




1 040 


REM X2=NUMER0 DE CARACTERES 


1040 


REM DflTOS DE SflLIDfl 


1050 


REM 




1050 


REM 


1045 Ktn 

1050 REM X2=P0SICI0N EN QUE SE ENCU 
ENTRA 


1060 
1070 


REM DflTOS DE SflLIDfl 
REM X1*=STRING TRUNCflDO 




1 060 
1070 


REM DflTOS DE SflLIDfl 

REM X1*=STRIN6 RELLENADO 


1100 


X2=0 


1080 


REM 




1100 


Xl*="" 


1110 I FX 1 + < LEN C X2S »-l >LEN <: X 1 * J THEH 
RETURN 


1190 if asc<right*<:xi*,i vk>3* 

ETURH 


.THENR 


1110 

XT I 


FORI-1TOX1 :X1*=X1*+CHR*<X2> :HE 


1120 
NX2= 


IFMIS*<X1», X 1 , LEN <: X2* > > =X2*THE 
<1 :RETIJRN 


1110 
1100 


K1*=LEFT*CX1*..LEN';X1*>-1 


: GOTO 


1120 


RETURN 


1130 


X1=X1 + 1 :GOTO1U0 


REflDV. 




READ 


r'. 


REflDV. 













tf 



Kclub commodore 



TR U COS 




trucos y pokes variados 

para el VIC-20 

y el COMMODORE 64 



por P. MASATS 



A continuacion damos algunas bre- 
ves informaciones en torno al VIC y 
al nuevo COMMODORE 64. 

Las dos primeras van para el VIC-20 
y son dos rutinas de utilidad que han 
sido escritas por nuestro colaborador 
E. Martinez de Carvajal. La primera (en 
la figura 1 podemos ver el listado y 
en la 2 un par de ejemplos de su apli- 
cacion) permite el volcado del conte- 
nido de la pantalla del VIC a la im- 
presora (a esto en el ingles utilizado 



20 G 1=32768 

38 IP=7688 

48 0PEN1,4 

50 F0RC=21T08STEP-1 

68 H*= ,,n 

70 F0RF=8T022 

80 X=PEEK<IP+C+F*22> 

90 FORK=0TO7 

95 P=PEEK < G 1 + < X*8 > +K > : I FP>= 1 28THENP 
=P-128 

97 P=P+128 

100 A*=n*+CHR*<P> 

110 NEXTK 

128 NEXTF 

130 PRINT#1,CHR*<8>;H* 

140 NEXTC 

150 PRINT#1,CHR*<15> 

160 CLOSE 1 

178 STOP 

REFtDV. 

Fig. 1 



en informatica se le suele llamar un 
HARDCOPY, o sea una copia solida). 
La unica limitacion que tiene es que 
solo permite el volcado de contenidos 
alfanumericos o semi-graficos (los que 
se obtienen por teclado). En caso de 
necesitar hacer lo mismo trabajando 
con el cartucho SUPEREXPANDER o en 
otro modo en el cual hayamos definido 
nuestro propio juego de caracteres, 
podemos utilizar el programa de la fi- 
gura 3. En este, las lineas 1-400 cons- 
tituyen un programa para realizar un 
dibujo convencional en la pantalla y, 
a partir de la linea 7000, hasta el final 
tenemos la subrutina de volcado pro- 
piamente dicha. La caracteristica prin- 
cipal de esta es la de que esta «para- 
metrizada», es decir, en las lineas 
7010-7180 averigua las posiciones ac- 
tuales de la memoria de pantalla y del 
generador de caracteres para conse- 
guir adaptarse a cualquier circunstan- 
cia. En la figura 4 se da una muestra 
de los resultados. En el caso de utilizar 
la instruccion CIRCLE del SUPEREX- 
PANDER debe realizarse una correc- 
cion en los dos radios para compensar 
el cambio de formato (en algunos ca- 
sos los circulos se convierten en elip- 
ses). Para los usuarios del COMMO- 
DORE 64 estamos preparando las co- 
rrespondientes versiones que publica- 
remos oportunamente. 



Y ahora unos cuantos POKEs varia- 
dos: 

Podemos evitar la accion de la com- 
binacion de las teclas RUN/STOP y 
RESTORE con: 

COMMODORE 64: POKE 808,225. 
— Esto cambia la apariencia de los lis- 
tados, pero no afecta a la ejecucion; 



23 G 1=32763 

3e IP=76S3 

48 OPEN1 .4 

53 FORC=21TO03TEP-1 

60 A*="" 

70 FORF=0TO22 

80 X=PEEK< IP+C+F*22> 

90 FORK=0TO7 

SS P=PEEKCG1+<X*8> +K> : 

I FP >= 123 THENP=P- 128 

97 p=P+128 

100 r)*=A*+CHR*CP> 

110 NEXTK 

120 NEXTF 

130 PRINTttl,CHR#<S> ;A* 

140 NEXTC 

150 PRINT*tl,CHR*<15> 

160 CLOSE 1 

170 STOP 

READY. 

RUN 



Fig. 2 (A) 

1234567S80+-£QWERTVU I O 
P@*1-ASr>FGHJKl_ : :=ZXCVBN 

RlJN 



Fig. 2 (B) 



tambien altera el funcionamiento del 
reloj interno. 

Para el VIC-20, junto con el POKE 
de anulacion de la tecla RUN/STOP 
debe hacerse: POKE 37150,2. Para re- 
activar estas teclas: 
POKE 808,237 — COMMODORE 64 — 
y POKE 37150,130 en el VIC-20. 

Si necesitamos — por alguna ra- 
zon — prescindir del teclado: 
COMMODORE64yVIC-20: POKE 649,0. 
Para volveral funcionamiento normal: 
POKE 649,10 en los dos equipos. 
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Para terminar con los POKEs, he aquf la manera de cambiar de ma- 
yusculas a minusculas: En el COMMODORE 64; POKE 53272,peek(53272) 
OR2. En el VIC-20; POKE 36869,PEEK(36869)OR2. Para recuperar la impre- 
sion normal: COMMODORE 64; POKE 53272,PEEK(53272)AND253,y en el 
VIC-20: POKE36869,PEEK(36869)AND253. m 




1 REM RUTINB PRRH EL SUPEREXPRNDER 


7020 IFPEEK C 36866 > >= 1 28THENHV=RV+ 1 


8068 


FORF=0TONL-1 


10 GRAPH I C2 


7030 RV=AV*512 


8078 


X=PEEK < RV+C+F*NC ) 


20 COLOR1, 1,0,0 


7050 NL=PEEK < 36867 > : I FNL>= 1 28THENNL 
=NL-128 


8075 


F0RI=lT0CS/8 


30 DRRM2 , , 0TO 1 023 , 1023 


7060 IFNL/2=INT<NL/2)THENCS=8 


3080 


FORK=0TO7 


40 0RFSW2, 1 023, 0TO8, 1023 


7870 IFNL/20INT<NL/2:>THENCS=16 


8090 
IFPO 


p=peek<hc+<:x*cs>+k+<:8*<: 1-1 > > > : 

=127THEN8100 


50 CIRCLE2,512,512,300,400 


7080 NL=INTCNL/2) 


8095 


P=P- 1 28 : I FP<=63THENP=P+64 


60 PRINT2, 0,512 


71 10 flC=PEEK< 36869 > :X=INT< AC/16) :flC 


8180 


P=P+128 


70 PRINT2, 1023,512 


=AC-<X*16> 


8110 


fl*=H*+CHR*<P> 


80 PfiINT2,512,480 


7128 IFRO7THENflU=0 


8120 


NEXTK 


90 PHINT2,512,808 


7130 IFRC<=7THENRU=1 


8125 


NEXT I 


368 GOSUB7000 


7140 IFflU=0THENflC=flC-8 


8130 


NEXTF 


370 GRAPHICS 


7150 IFRU=lTHENRC=RC+32 


8140 


PR I NT# 1 , CHR* < 8 > ; A* 


400 STOP 

* 


7160 RC=RC*1824 


8158 


NEXTC 


7000 REM COP1 VIDEO 


7 1 80 NC=PEEK < 36866 > : I FNC>= 1 28THENNC 
=NC-128 


8160 


PRINT#1,CHR*<15> 


7002 REM ERNESTO MTNZ. DE CARVAJAL 
HEDRICH 


8010 OPEN 1,4 


8170 


CLOSE 1 


7010 AV=PEEK< 36869) :AV=INT<AV/16> :H 


8048 F0RC=NC-1T08STEP-1 


8180 


RETURN 


V=<HV-8>*2 


8050 A*-"" 


RE ADV. 




Fig. 3 







BOLETIN DE SUSCRIPCldN - club commodore 



NOMBRE EDAD 

DIRECClON 

POBLAClON ( ) PROVINCIA 

TELEF MARCA Y MODELO DEL ORDENADOR 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripcion con el n.° 10 



(Enviar a la direccion del dorso) 



Firma, 



DESEO SUSCRIBIRME A "CLUB COM- 
MODORE" POR UN ANO AL PRECIO 
DE 1.980 PTAS., QUE PAGARE CON- 
TRA REEMBOLSO AL RECIBIR EL NU- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPClQN. DICHA SUSCRIPCION ME 
DA DERECHO, NO SOLO A RECIBIR LA 
REVISTA (ONCE NUMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINAClON DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 
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2. club commodore 



los listados 

de CLUB 
COMMODORE 



M, odos los listados que se publican 
en esta Revista nan sido ejecutados 
en el modelo correspondiente de la 
gama de ordenadores COMMODORE. 
Para facilitar la edicion de los mismos 
en la Revista y para mejorar su legibi- 
lidad por parte del usuario, se les ha 
sometido a ciertas modificaciones me- 
diante un programa escrito especial- 
mente para ello. Para los programas 
destinados a los ordenadores VIC-20 
y COMMODORE 64, en los que se 
usan frecuentemente las posibilida- 
des graficas del teclado, se han susti- 
tuido los simbolos graficos que apa- 
recen normalmente en los listados por 
una serie de letras entre corchetes [] 
que indican la secuencia de teclas que 
se deben pulsar para obtener el carac- 
ter deseado. A continuacion se da una 
tabla para aclarar la interpretacion de 
las indicaciones entre corchetes: 

[CRSRD] = Tecla cursor hacia abajo 

(sin SHIFT) 
[CRSRU] = Tecla cursor hacia arriba 

(con SHIFT) 
[CRSRR] = Tecla cursor a la derecha 

(sin SHIFT) 
[CRSRL] = Tecla cursor a la izquierda 

(con SHIFT) 
[HOME] = Tecla CLR/HOME 

(sin SHIFT) 



£,Necesita ampliar 

sus conocimientos 

de informatics? 




,u«.r 



[CLR] = Tecla CLR/HOME 
(con SHIFT) 

Las indicaciones [BLK] a [YEL] co- 
rresponden a la pulsacion de las te- 
clas de 1 a 8 junto a la tecla CTRL. 
Lo mismo sucede con [RVSON] y 
[RVSOF] respecto a la tecla CTRL y 
las teclas 9 y 0. 

El resto de las indicaciones cons- 
tan de la parte COMM o SHIF seguidas 



de una letra, numero o simbolo — por 
ejemplo [COMM + ] o [SHIFA] — . Es- 
to indica que para obtener el gra- 
fico necesario en el programa deben 
pulsarse simultaneamente las teclas 
COMMODORE (la que Neva el logo- 
tipo) o una de SHIFT y la tecla indi- 
cada por la letra, el numero o el sim- 
bolo, en el ejemplo anterior: COMMO- 
DORE y + o SHIFT y A, respectiva- 
mente. ■ 
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PROGRAMAS EN DISCO 

D-1001 Agenda 

Permite contener 4 paginas de informa- 
tion de 114 personas, entidades, etc. Pu- 
diendo anadir, cambiar o borrar la infor- 
mation que se desee. 

En castellano, necesita ampliation de 8K. 
Presentado en caja. 

D-1002 QSL 

Registro de contactos para radioaficiona- 

dos, version en disco. 

Necesita ampliacion de 8K. Presentado en 

caja. 

D-1003 Test Demo 

Programa de test para la unidad de disco. 
Nota: este disco es el que se suministra con 
la unidad de disco VIC-1540. 

D-1004 Assembler 

Editor y compilador en BASIC para rutinas 
en lenguaje maquina del 6502. Necesita 
ampliacion de 3K. Acompahado de ma- 
nual en ingles. 

D-1005 English language 

Version en disco del programa en cinta, 
dado que al manejar ficheros resulta mu- 
cho mas rdpida su utilizaci6n. 
Necesita ampliacion de 8K. Presentado en 
caja. 

D-1006 Quiz Master 

Version en disco del programa en cinta. 
Necesita ampliaci6n de 8K. Presentado en 
caja. 

D-1007 Matemdticas 1 (nivel BUP) 

Version en disco del programa en cinta. 
Necesita ampliacion de 8K. Presentado en 
caja. 

3301 Simplicalc 

Hoja de Trabajo Electronica 60 columnas 
por 100 filas Max. Necesita ampliacion 
de 16K. 

3304 Vic File 

Bases de datos para el VIC-20 con posibi- 
lidad de definir el formato de los campos. 
Necesita ampliacion de 16K. Ideal para 
fichero de clientes. 

3305 Vic Writer 

Proceso de texto muy potente y rapido. 
Necesita ampliacion de 8K 6 16 K. 



PROGRAMAS EN CINTA 
Programas Tecnicos 



5.000 



3.000 



3.000 



5.000 



2.500 



2.500 



2.500 



13.000 



13.000 



13.000 



C-128 



C-129 



C-131 



Programacion lineal 1.000 

Metodo simplex. Calculo del valor de las 
variables que satisfaciendo las restrictio- 
nes hacen maxima o minima una funcion. 
En castellano. Presentado en caja. 

Matrices 1.000 

Suma, resta, multiplication, multiplication 
por un escalar e inversion de matrices. 
En castellano. Presentado en caja. 

Regresiones I 1.000 

Contenido: Regresion lineal: Calculo por 
minimos cuadrados de la recta que se ajus- 
ta mejor a una nube de puntos. 
Regresion multiple: Variable dependiente 
en funcion de N variables independientes 
de grado 1. En castellano. Presentado en 
caja. 



C-132 Regresiones II 1.000 

Contenido: Regresion de orden N: Variable 
dependiente en funcion de variable inde- 
pendiente de grado N. 
Regresion exponencial: Ajuste nube de 
puntos a una curva exponencial. 
Regresion geometrica: Ajuste de una nube 
de puntos a una curva geometrica. En 
castellano. Presentado en caja. 

C-133 Estadistica I 1.000 

Distribution normal, Poisson, binomial, chi- 
cuadrado. Student, F de Snedecor. En cas- 
tellano. Presentado en caja. 

C-134 Estadistica II 1.000 

Contenido: Calculo de la media, varianza 
y desviacion tipo, tanto de la muestra co- 
mo de la poblacion, estando los datos 
agrupados o no. Test de chi-cuadrado y 
test de Student. En castellano. Presentado 
en caja. 

C-135 Sistemas 1.000 

Contenido: Resolucion de sistemas de N 
ecuaciones con N incognitas. 
Resolucion de ecuaciones de grado 2 dan- 
do las soluciones tanto reales como com- 
plejas. 

Calculo de permutaciones y de combina- 
ciones. En castellano. Presentado en caja. 

C-137 Integration 1.000 

Calculo de integrales por el metodo de 

Gauss. 

Calculo de derivadas de una funcion en un 

punto. Interpolaciones tanto lineales como 

curvilineas. En castellano. Presentado en 

caja. 

Programas Educativos 

C-125 Hangmath 1.500 

Se trata de averiguar la multiplication en- 
tre 2 numeros (tanto los numeros como 
la multiplication y el resultado final), pro- 
curando no ser ahorcado. Las instrucciones 
son en castellano. 

C-140 Skymath 1.500 

Sumas y restas para chicos muy jovenes 
saliendo naves espaciales para motivar- 
los. Una manera de aprender jugando. 3K. 

C-141 Space Division 1.500 

20 preguntas sobre divisiones muy senci- 
llas. En funcion de los resultados correc- 
tos, despega un tohete que llegara mas o 
menos lejos. 3K. 

C-143 English Language 2.000 

Especialmente adecuado para las personas 
que, poseedoras de un buen nivel de in- 
gles, quieren altanzar cotas superiores. 
Necesita ampliacion de 8K. Presentado en 
caja y acompafiado de su correspondiente 
manual. 

C-145 Mastermind 3.000 

Participe en el famoso tonturso de la BBC, 

de preguntas y respuestas sobre temas 

variados. 

Este tassette va acompafiado del sistema 

operativo y de un file de demostracion. 

Netesita ampliacion de 8K. Presentado en 

caja. 

C-146 Matemdticas I (nivel BUP) 2.000 

Contiene sistema operativo y 7 cuestio- 
narios sobre diferentes temas abartando 
geometria, aritmetita, matematitas gene- 
rales, algebra, etc. Netesita ampliation 
de 8K 6 16K. Presentado en taja. 



PROGRAMAS COMERCIALIZADOS POR "IvIICROELECTRONICA Y CONTROL, S.A." 
Puede encontrarlos en su distribuidor mas proximo 
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El mejor ordenador personal 

del Mundo 




El COMMODORE 64 






Este es el nuevo ordenador personal 
COMMODORE 64. Un gigante de 40 cm, con 
un precio casi tan pequeno como su tamano. 

Nadie hasta ahora habia logrado ofrecerle 
64 K de memoria, 40 columnas en pantalla, 8 
sprites y un sonido de autentica maravilla por 
solo 110.000,— ptas. Claro que tampoco todo 
el mundo es el lider mundial en 
microordenadores . 

COMMODORE sabe perfectamente que 
para seguir siendo el numero uno, tiene que 
estar constantemente en vanguardia. 
De calidad. De precios. De todo. Para ello 
investigamos constantemente. 

Afortunadamente nuestra labor se ve 



plenamente recompensada cuando vemos, 
como lo demuestra el cuadro comparative, 
que nuestro mas directo competidor cuesta 
nada menos que un 100% mas caro. Y ello sin 
reunir todos los adelantos tecnicos del 
COMMODORE 64. 



1 . Capacidad total de memoria RAM de 
64 K. Interpretador BASIC extendido y sistema 
operativo residentes en ROM. 

2 . Dotado del mas potente chip 
sintetizador de sonido disenado hasta hoy, el 
COMMODORE 64 ofrece 3 voces totalmente 
independientes con una gama de 9 octavas. 
El programa puede controlar la envolvente, 
la afinacion y la forma de onda de cada voz, 



convirtiendo al COMMODORE 64 en el mejor 
simulador de instrumentos. 

3. Conectable directamente a toda una 
gama de perifericos, incluyendo unidad 

de discos, impresora de matriz de puntos o de 
margarita, plotter, comunicaciones locales 
y remotas..., y mucho mas. 

4. Pantalla de alta resolucion en color 
con 320 x 200 puntos directamente 
direccionables. Capacidad en modo caracter 
de 25 lineas por 40 columnas. 
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5. El chip de video, unico en su genero, 
permite el uso de 8 « Sprites » (figuras 

moviles en alta resolucion y color). Los 

«Sprites» pueden moverse 

independientemente por programa de 
«pixel» en «pixel». 



6. A cada «Sprite» se le asigna por 
programa un nivel de prioridad en caso 
de cruce con otro, consiguiendo efectos 
tridimensionales, existiendo tambien 
detection automatica de colisiones. 

7. Teclado profesional con mayusculas y 
minusculas, mas 62 caracteres graficos, todos 
ellos disponibles en el teclado y visualizables 
en 16 colores, en forma normal o bien en 
video invertido. 

8. Encontrara a su disposition una 
completa gama de programas profesionales, 
incluyendo proceso de textos, sistemas de 
information, modelos financieros, 
contabilidad y muchas mas aplicaciones. 

9. Estan en fase de desarrollo asimismo 
otros lenguajes tales como LOGO, UCSD 
PASCAL, COMAL, ASSEMBLER, etc. Todos 
los programas existentes de la gama 
COMMODORE, desde el VIC-20 hasta los 
modelos CBM pueden ser adaptados 
facilmente. 

10. Posibilidad de insertion de cartuchos 
con programas grabados en ROM, tan to 
profesionales como para education 

y ocio. 

1 1 . Option de un segundo procesador 
Z-80 para trabajar con sistema operativo 
CP/M (R). 



EL COMMODORE 64 




Y SU MAS DIRECTO COMPETIDOR 
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PARA MAS INFORMACION 

DEL COMMODORE 64, 

LLAMAR O ESCRIBIR A: 

MICROELECTRONICA Y CONTROL 

c/ Taquigrafo Serra, 7, 5?. Barcelona-29 

Tel. (93)250 51 03 

d Princesa, 47, 3?, G. Madrid-8 

Tel. (91)248 95 70 

Nombre 

Direction 

Tel 

Poblacion 
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Programas Aplicaciones 



000 



000 



500 

000 
500 

000 



C-130 Caja 2, 

Dentro de una cuenta bancaria permite 
abrir hasta 100 subcuentas con su corres- 
pondiente debe y haber. Preparado para 
funcionar si se desea con impresora, uni- 
dad de discos y evidentemente cassette. 
Necesita ampliation 16K. Presentado en 
caja. 

C-136 Dieta 2 

En funcion de la edad, sexo, altura, con- 
figuracion y actividad desempenada por 
la persona, da el peso ideal. Pregunta si se 
desea seguir un regimen, y en funcion de 
la actividad fisica desarrollada da el peso 
que se debe tener y la perdida diaria que 
se debe alcanzar hasta llegar a dicho peso 
Optimo. Estd en castellano y necesita am- 
pliacion de 8K. Presentado en caja. 

C-139 Viealc 1 

El VIC-20 se comporta como una calculado- 
ra y utiliza la notacion polaca inversa. 
Manual de instrucciones en castellano. 

C-142A Interface de RTTY y CW y cassette de CW . 25 

Especial para radioaficionados. 

C-142B Cassette de RTTY 2 

Para utilizarlo es necesario el interface de 
RTTY y CW. Especial radioaficionados. 

C-144 Quiz Master 2 

Programa para preparation de cuestiona- 
rios. Especialmente adecuado para escue- 
las. En castellano. Necesita ampliacion 
de 8K. 



Programas de Juegos 

C-201 Codemaker 1.500 

El VIC-20 inventa un codigo secreto, te- 
niendo que descubrirlo. Instrucciones en 
castellano y el programa en ingles. No 
necesita ampliacion. 

C-202 Wall Street 1.500 

Partiendo de una situation financiera ini- 
cial, puede comprar y vender acciones dia- 
riamente en funcion de los precios que van 
variando. Instrucciones en castellano. Pro- 
grama en ingles. No necesita ampliacion. 

C-203 Simple Simon 1.500 

El VIC-20 va generando una serie de notas 
musicales que el usuario debe repetir en 
la misma secuencia. El grado de dificultad 
va aumentando y cuando se comete un 
error se vuelve a iniciar el juego. Instruc- 
ciones en castellano. Programas en ingles. 
No necesita ampliacion. 

C-2041 Damas 1.500 

Juego de Damas especialmente adecuado 
para nifios entre los 7 y los 10 afios. En 
ingles. No necesita ampliacion. 

C-205 Alien Blitz 1.500 

Fabuloso juego de invasores para el VIC- 
20. No necesita ampliacion. 

C-206 Kosmic Kamikaze 1.500 

Ataque masivo de naves extraterrestres, 
pudiendole salvar tan solo sus habilidades 
y reflejos. Necesita ampliacion de 3K u 8K, 
dado que hay dos versiones del juego. 



C-207 Star Wars 1.500 

Tan solo dispone de 1 minuto para destruir 
al enemigo!!, siendo dificil el tener coloca- 
do los invasores en el centro de la panta- 
lla para abatirlos. No necesita ampliacion. 

C-20S Amok 1.500 

Solamente con su habilidad y reflejos, el 
hombre dirigido por usted podra esquivar 
el ataque del enemigo y aniquilarlo. No 
necesita ampliacion. 

C-202 The Alien 1.500 

i El comecocos en accidnl Necesita una am- 
pliacion de 3K. 

C-210 Invader Fall 1.500 

Defenderd su position frente al avance 
progresivo de naves espaciales. Debe con- 
seguir la destruction total antes de la lle- 
gada a sus li'neas. No necesita ampliacion. 

C-211 A-MAZ-ING 1.500 

Pierdase por un laberinto poblado de fan- 
tasmas. Necesita ampliacion de 3K. 

C-212 Math-Hurdler, Monster Maze 1.500 

Math-Hurdler: Tiene que resolver la opera- 
cidn matemdtica por usted escogida con el 
grado de dificultad y rapidez que desee. 
Monster Maze: Debe llegar al ofro exfremo 
del laberinto evitando que sus enemigos 
se lo coman. No necesita ampliacion. 

C-213 Golf 1.500 

Juegue al golf sentado cdmodamente en 
su casa frente a la pantalla del televisor. 
Necesita 3K. 

C-215 VIC Games II 1.500 

Fire: Apague un incendio con un helicop- 
tero. 

Draw: Dibuje en la pantalla con alta reso- 
lution. 

Race: Intente imitar a Fangio en espec- 
tacular carrera de coches. No necesita 
ampliacion. 



B1BLIOGRAFIA 

Manual usuario VIC-20 800 

Nociones de funcionamiento del VIC-20 y 
del lenguaje BASIC. 

Curso Infroduccion BASIC: Parte I 2.500 

De una manera clara y sencilla, partiendo 
de cero, se va ensenando el lenguaje del 
futuro. Este libro va acompanado de dos 
cassettes con 17 programas en castellano. 

Curso Introduction BASIC: Parte II 2.500 

Profundizacion de lo tratado en Parte I, 
especialmente en creacion de ficheros, ma- 
nejo de subrutinas, efectos musicales, 
aspectos animados, etc. 

VIC Revealed 1.500 

Libro que explica con detalle el funciona- 
miento interno del VIC-20. Incluye esque- 
mas. Libro en ingles. 

Programers Reference Guide 2.000 

Profundizacion en el manejo del VIC-20. 
Incluye referencias a rutinas lenguaje md- 
quina. Libro fotocopiado en ingles. 
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VIC-20 



rutinas para dibujar 
funciones en alta resolucion 
con la impresora 



por P. MASATS 



JCin este articulo presentamos una 
rutina que permite dibujar en la im- 
presora del VIC-20 una funcion mate- 
matica estableciendo una serie de pa- 
rametros (formula de la funcion, valo- 
res iniciales e incrementos de X e Y) 
y haciendo un GOSUB 1000 la impre- 
sora nos realizara un dibujo de la fun- 
cion con sus ejes cifrados y un titulo 
opcional. 

Las relaciones matematicas se pue- 
den entender y analizar mejor si se 
dibujan y un ORDENADOR de bajo cos- 
to como el VIC-20 puede manejar fun- 
ciones de una manera potente y flexi- 
ble. El unico aspecto que queda por 
resolver es el de conseguir un sistema 
para que estas funciones «dejen ras- 
tro» de una manera permanente. La 
impresora V1C-1515, ademas de poder 
escribir con letras y numeros de ma- 
nera convencional, permite realizar di- 
bujos de una manera similar a la que 
utiliza el VIC en la pantalla, es decir, 
de alguna manera, se pueden definir 
los caracteres que se van a imprimir. 



Veamos rapidamente como trabaja la 
impresora de manera general y espe- 
cificamente para dibujar. 

La impresora VIC-1515 funciona en 
tres modos diferentes: cuando se pone 
en marcha la unidad o se le manda un 
CHR$(15) esta se halla en el modo de 
caracteres standard que permite la 
impresion de los simbolos alfanumeri- 
cos y graficos de uso habitual en la 
pantalla. Este modo de funcionamiento 
es el utilizado para obtener listados 
y datos alfanumericos. En caso de ne- 
cesitar la impresion de los caracteres 
de la parte derecha de las teclas, se 
pueden obtener mediante una direc- 
cion secundaria especial en el coman- 
do OPEN. Se pueden conseguir carac- 
teres de doble ancho (en este caso 
solo caben 40 caracteres en una linea) 
mandando a la impresora un CHRS(14). 
Esto expande cada caracter horizontal- 
mente mejorando la legibilidad. Se 
puede utilizar con todos los caracte- 
res alfanumericos. EI modo grafico se 
obtiene enviando un CHR${8). De esta 



manera se obtiene el control de cada 
punto individual en la linea de impre- 
sion. Cuando la impresora — en modo 
alfanumerico — recibe el codigo de 
un caracter en particular, primero con- 
sulta una memoria ROM que Neva in- 
corporada (el concepto es muy similar 
al del generador de caracteres en el 
funcionamiento del video) para ver 
cual es la configuracion del caracter 
que debe escribir. La ROM suministra 
informacion para una matriz de 5 x 7 
puntos (ver la figura 1) y la logica de 
la impresora deja en bianco la sexta 
columna para separar el caracter ac- 
tual del siguiente. Al enviar un codigo 
de 8 bits se puede escribir cualquiera 
de los caracteres programados en la 
ROM. ■ 

En el caso del modo grafico, se nos 
permite «sa!tarnos» la consulta a la 
ROM y enviar a la cabeza de impre- 
sion la columna que deseamos dibujar 
(ver figura 2). De esta manera el codi- 
go no se interpreta como un caracter 

(continua en la pag. siguiente) 
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a imprimir sino que es procesado co- 128), o se envia directamente al cabe- En este ultimo caso los bits del al 6 
mo un caracter de control si el bit 7 zal de impresion si el bit 7 es igual a 1 determinan directamente en que linea 
es (si el valor decimal es menor que (o sea, si el valor esta entre 128 y 255). se va a poner un punto o no. Por ejem- 



REflDV. 



1 000 B*=CHR* C 1 6.-' -i-CHR* C 50 > +CHR* '48 ) 
C#=CHR*<13:> 



1890 FQRCN=0TO299 

Ilea (?S=RV-FMViCXS+CN*XI) : IFRSOTHEN 
1 1 30 

1110 DR= I NT C RS,-' V I ;■ : I FDR:; 6THEH 1 1 30 



1018 Dl*=CHR*<:i7i:)+CHR*(S:>:D2*=CHR* u 2 a flS<CNl=128+2trj«!CE=CN 
a23>+CHR*<:8:> :SP=128 



1 020 OPEN 1 , 4 : PR I NT# 1 : PR I NT# 1 



1 030 VR=V I *7 : F0RRN=8T049 : RV=VS+ '■ 58- 
RN ) *VR 



1 040 FORCN=0TO300 : Ki< CH > =SP : NEXTCN 



1 850 IFRN- 1 8* I NT C RN, ' 1 ':• OSTHENPR I NT 
# 1 .. C* ; B* ; D 1 * ; GOTO 1 090 



1060 CN=RV-3*VI :IFfiBSCCH:)<0.5*VITHE 
NCN=8 



1870 PRINT#1,C«; :E*=STR*CCH.) :FORN=l 
TOC 19-LEH<E*:> > :PRINT#1 , " " ; sNEXTN 



1088 PRINT#1 ,E*.:S*.;02*.: :CE=8 



5> :PRINT#1 ,CHR*':: 16) ;r-1ID*CF*,2,2) ; 

1228 X V=XS+ < NN+8 . 5 > *X I *6 : 1 FRBS < X V > ;: 
0.5*XITHENXV=0 

1230 E*=STR*<:XV:i :L=LEN<E*> :IFL>18TH 
ENL=18 

1 248 FORN=0TO I NT C 5-L/2 > : PR I NT# 1," « 
.: :NEXTN 



1138 NEXTCN 

1158 CE=CE+ 1 : R:-; < CE > = 1 3 

1 258 PR I NT# 1 , E* .: : NEXTNN : PR I HT# 1 : PR I 
1168 F0RCN=8T0CE:PRINT#l..CHR*.::R.-;i:CN NT#1 
:■>.: : NEXTCN 

1260 PRINT#1 ,CHR*< 14> ; :L=LENt:T$) : IF 
1178 HEXTRN : PR I NT# 1 , C* .: B* ; CHR* < 1 73 J LJ 40THENI_=48 

1278 F0RN=lT0INTt:23-L/2:J :PRINT#1, " 
1188 FORCN=0TO50:IFCN-10*INT'::CN,-10;' " .: :NEXTN 
■OSTHENPR I NT# 1 , CHR* <1 77 ) .: : GOTO 1 288 

1288 PRINT#1,T*.;CHR*( 15") :PRINT#1 :PR 
1198 PR I NT# 1 ., CHR* < 1 23 ;■ I NT# 1 : CLOSE 1 



1 208 NEXTCN : PR I NT# 1 



1298 RETURN 



1218 FORNN=5TO45STEP10:F*=STR*';HN+1 REflDV 

(Fig. 3) 
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PROGRAMAS STANDARD Y «A MEDIDA» PARA EQUIPOS COMMODORE 






VIC-20 SISTEMA4000 SISTEMA8000 


SISTEMA 8000 






-CONTABILIDAD -FACTURACION -CONTABILIDAD(IOMB) 


- FINCAS 






- GESTlON COMERC. -ALMACEN - GESTlON COMER. 


- IND. CARNICAS 






- STOCK ALMACENES - GESTlON COMERC. - 9000 ARTl'CULOS 


- EMP. LIMPIEZA 






- VIDEO CLUB - VENTAS DETALL - GEST. INTEGRADA 


- COOPERATIVAS 






-ENTRAPUNT -TIENDAS -ALMACEN 


-TALLERES 






-ETC. -ETIQUETAS - NOMINAS 


-COMPONENTES 






- ETC. - DIRECCION 


- PIENSOS 






- - - AUTOVENTA 


-COLEG.PROFES. 






- - - CONTROL SOCIOS 


- CADENAS MONTAJE 






- PRODUCClON 


-ETC. 






Avenida Cesar Augusto, 72 - Telefonos 23 56 82 y 2265 44 
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plo, para dibujar un punto en la Ifnea 4 
(ver figura 2) el valor a enviar debe ser 
128 + 8, es decir CHR$(136). Para di- 
bujar a continuacion en las lineas 3 y 4 
se debe mandar 128 + 8 + 4, o sea 
CHR$(140). Como sea que se van en- 
viando caracteres sucesivos para cada 
columna independientemente se pue- 
de simular el funcionamiento en modo 
alfanumerico mandando sucesivamen- 
te los CHRS de 254, 137, 137, 137, 254 
y 128 para dibujar la «A» de la figura 1. 
La impresora ademas controla auto- 
maticamente el buffer de transferen- 
cia de datos en modo grafico, puede 
tomar hasta 481 bytes de datos para 
dibujar una linea (es decir, el CHR$(8) 
para entrar en el modo grafico y 80 
(caracteres) * 6 (columnas por carac- 
ter) = 480 columnas), pero el buffer 
interno de la impresora tiene una ca- 
pacidad de 90 bytes por lo que dibuja- 
ra la linea «a trozos». Sin embargo, 
esto no tiene ninguna consecuencia 



i aa d i mr": c 300 > 




. i 


XI =8 


120 DEF FMVOO=SIM«:XVO{+i > 




133 T*="V = SIH<X>/<X*1J" 




1 40 COSUB 1 000 : END 




REflDV. 




(Fig. 4) 





para la programacion exterior. Para 
evitar el espacio que normalmente se 
deja entre lineas, el avance de papel 
es de dos tercios de el alfanumerico, 
con lo que las lineas sucesivas quedan 
impresas sin solucion de continuidad. 
La subrutina de la que se da el lis- 
tado en la figura 3 ha sido escrita para 
utilizar este concepto de grafico. Con 

(continua en la pag. siguiente) 
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en 



Electronica 



En sus pdginas ya se han publica- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20 y para 
otros ordenadores. 

• Se han publicado articuios sobre 
los siguientes temas: 

— Serie de artfculos sobre los 
microprocesadores con andli- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semd- 
foros en la via publico, Sis- 
tema de alarma anti-robo, 
Sencilla aplicacion para mo- 
tores de cassette o de jugue- 
tes electricos. 

— Rutinas utiles para la clasifi- 
cacion de datos (SORT). 

— Descripcion de la PIA. 

— Los convertidores analogico- 
digitales y digital-analogicos. 

— Nuevos equipos operativos 
de burbujas magneticas para 
la investigacion y las aplica- 
ciones industriales. 

— Los cdlculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseno y simulacion de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable: 
aplicacion real de un sistema 
controlado por microprocesa- 
dor. 

— Diseno y simulacion de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65, equrpo en el que se han 
incluido versiones de Basic 
para ayudar en la ensenanza 
de lenguajes de programa- 
cion. 

— Un lenguaje de alto nivel re- 
comendado para los micro- 
procesadores: el Pascal. 

— Un documentado trabajo so- 
bre las caracteristicas y posi- 
bilidades de las impresoras. 

— Ejemplos de programacion en 
lenguaje Pascal con el TRS-80 
y con el AIM-65. 

— Una serie de articuios sobre 
los robots y su utilizacion: 
caracteristicas, funcionamien- 
to y aplicaciones. 

• Fichas tecnicas de microprocesa- 
dores y de micro-ordenadores. 

Para numeros atrasados y para 
suscripcion anual (1.975 ptas.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 
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rutina para dibujar 
funciones en alta 
resolucion con la 



impresora 



(conclusion) 



su uso y el del programa de la figura 4 
se ha obtenido el dibujo de la figura 5. 
En el listado de la figura 4 la linea 110 
esta encargada de situar los parame- 
tros mas importantes. XS e YS son los 
valores iniciales para la funcion. XI e 
Yl son los valores en los que se incre- 
mental la funcion. En la linea 120 
escribimos la funcion que queremos 
representar utilizando DEF FN. A con- 
tinuacion en la linea 130 la variable T$ 
almacena la cadena alfanumerica que 
sera el tftulo que se imprime al pie 
del dibujo. La rutina utiliza alrededor 
de 1600 bytes con lo que queda espa- 
cio incluso en un VIC sin expansion. 



EL PROGRAMA 

Las lineas 1000 a 1020 realizan la 
inicializacion general. B$ es el equiva- 
lente en la impresora de la funcion 
TAB y hace avanzar a la cabeza de im- 
presion a la posicion 20 para colocar 
el eje vertical. C$ coloca la impresora 
en modo caracter standard. D1$ y D2$ 
imprimen los caracteres que forman el 



REHDV. 








100 


DIMfH-:C300: 


,VH<:: ; :00> 






110 


XS=0 : VS=0 


VI = 1 :XI = 1 






120 


Vfl '■ :> =9 :FORCN=0TO29 
H/ 1 00 J I; =50THEN I N=-6 


?:IFCN-100*I 
: GOTO 140 


130 


IN=6 








140 


VFKCN+1>=' 


/FKOO + IN: 


HEXTCN 




150 


T*="ONOfl 


fRIRHGULRR 






160 


gosub 1000 


:END 






REHDV. 












(Fig. 6) 
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(Fig. 7) 



eje vertical y situan la impresora en 
modo grafico, preparada para dibujar. 

La linea 1030 empieza el bucle ex- 
terno. YR es el incremento en el eje Y 
por linea de impresion (7 lineas). La 
linea 1040 inicializa la matriz de salida 
con «espacios graficos». La linea 1050 
determina si ha llegado el momento de 
poner un valor en el eje vertical. Si es 
asi, las lineas 1060 a 1080 calculan su 
valor, eliminan los ceros residuales y 
justifican a la derecha la cantidad. 

Las lineas 1090 a 1130 forman el bu- 
cle funcional. Por cada numero de co- 
lumna (CN) se obtiene el valor de FN 
Y y se determina si este valor corres- 
ponde a la linea en impresion. Si es asi 
se introduce un valor en A%. Las li- 
neas 1150 y 1160 afiaden un RETURN 
y terminan la linea enviando A% a la 
impresora. 

Cuando todas las lineas (50 en total, 
es decir, 350 puntos) han sido impre- 
sas, las lineas 1 170-1200 dibujan el eje 
horizontal. Imprimir los numeros en 
este eje es algo mas laborioso que en 



el vertical porque se trata de centrar 
los numeros en vez de justificarlos a 
la derecha. Las lineas 1210 a 1250 rea- 
lizan esta funcion. 

Finalmente las lineas 1260 a 1280 
centran el titulo y lo imprimen en do- 
ble ancho. 



MEJORA DE LA RUTINA 

El defecto mas grave de esta rutina 
es su lentitud (el dibujo de la figura 5 
tarda unos 20 minutos). Si se dispone 
de un VIC con expansion se puede 
usar como programa principal el de la 
figura 6, cambiando la linea 1100 de la 
rutina por la siguiente: 

1100 RS = RV— VA(CN): 
IFRS<0THEN1130 

Con estas modificaciones se ha rea- 
lizado el dibujo de la figura 7. Aunque 
la mejora en cuanto a tiempo no es 
muy dramatica. ■ 



MULTICENTRO DE INFORMATICA 




COMECOCOS. 3,5K. A/R 
DEL POPULAR PUCKMAN 



G/E. JY. EXTRAORDINARY VERSION 
COLOR Y MOVILIDAD INSUPERABLE . 



• VICGAMON. + 3K. JUEGO DE INTELIGENCIA QUE LE MANTENDRA 
EN TENSION HASTA DERROTAR A SU VIC 1.800 

j» ASTEROIDS WAR. 3,5K. C/M. A/R. G/E. JY. ESPECTACULAR BATA- 

LLA GALACTICA CONTRA LA NUBE PROTONICA EN 3 DIMENSIONES 1 .800 

■• FROGGER. +3K y 3,5K. C/M. A/R. G/E. JY. ULTIMA NOVEDAD 

I EN EE.UU. CRUZAR EL PELIGROSO RIO Y LA AUTOPISTA SUICIDA 2.000 

■ • RATMAN. +8K. C/M. A/R. G/E. DE LA BOVEDA CELESTE DES- 
||| CENDERAN EXTRANAS RATAS ATOMICAS. ESPECTACULAR ANI- 

■ MACION 1.900 

■ • SHARK ATTACK. 3,5K. C/M. A/R. JY. EN MEDIO DEL OCEANO 

■ SERA ATACADO POR LOS PELIGROSOS TIBURONES. DEFIENDASE 

jj CON SU RED ATOMICA 1.900 

■ • ROX III. 3,5K Y + 8K. C/M.A/R. G/E. JY. DESDE SU SOFISTICADA 

j| BASE LUNAR DEFIENDA SU PLANETA DEL ATAQUE DE LOS UFOS 1.800 

§§• .ULTISOUND SYNTHETIZER. 3,5K. £UN ORGANO EN SU VIC? 

I 4CON ACOMPANAMIENTO, BATERIA Y EFECTOS ESPECIALES? . . 1.900 

I* SKI-RUN. 3,5K. C/M. A/R. G/E. DESLICESE POR LAS HELADAS 
I PISTAS DE COMPETICION. SLALOM, S/GIGANTE, DESCENSO. 
jj 9 NIVELES 1.800 

■ • FIREBIRD. (SPACE PHREEKS). 3,5K. C/M. A/R. G/E. JY. ANO 

■ 3.010. VD. ES EL UNICO SUPERVIVIENTE DE LA BATALLA DE 

■ RIGELLIAN. DEBERA COLONIZAR OTRO PLANETA Y LUCHAR 

jj CONTRA LAS CRIATURAS GALACTICAS 1.900 

III 

■ • BREAKOUT. 3,SK. CONSIGA DESTRUIR LA PARED DE LADRILLOS 

I MULTICOLORES CON LA BOLA MAGICA. INCLUYE "MASTERMIND". 1.600 

1 • AJEDREZ. PRIMERA VERSION EN CASSETTE CON GRAFICOS EN 

H ALTA RESOLUCION. BASTANTES NIVELES DE JUEGO. (STANDARD) . 2.800 

■ • SHADOWFAX. INCREIBLES GRAFICOS ANIMADOS. EL CABALLERO 
I DE LAS SOMBRAS EN LUCHA CONTRA LOS JINETES DEL TIRANO 

jj INVASOR. (STANDARD) 1.900 

1* SNAKE. COLORIDO, MOVIMIENTOS Y GRAFICOS EXCEPCIONA- 

I LES. VERSION DEL FAMOSO JUEGO DE LAS SERPIENTES (SNAKE). 

% (STANDARD) 1.900 

jk* VIC PRINT. +8K. EXTRAORDINARY Y SENCILLO PROCESADOR 

II DE TEXTOS. TABULACION. MAQUETACION, CABECERAS, COPIAS. 

jj CASS O DISK 2.000 

■ • VIC LABEL. +8K. EN COMBINACION CON VIC PRINT, ELABORA 

jj ETIQUETAS PARA DIRECCIONES 1.900 

■ • VIC POST. +8K. ELABORA LETRAS Y TEXTOS ESPECIALES EN 

IS TAMANO Y FORMA PARA POSTERS, LISTAS DE PRECIOS, ETC. . . 2.900 

■ • VIC CALC. HERRAMIENTA DE CALCULO QUE SUSTITUYE AL LAPIZ, 
jj PAPEL Y CALCULADORA, REALIZA COMPLEJOS MODELOS FINAN- 

■ CIEROS CON POSIBILIDAD DE AJUSTARLO A OTROS PARAMETROS 

™ CON SOLO PULSAR UNA TECLA. 16K DE MEMORIA 3.200 



' QUIZ-MASTER. +3K. EL MAS ESPECTACULAR AVANCE EDUCATIVO.^ 
PERMITE LA CORRECCION Y PUNTUACION DE TODAS LAS RES 
PUESTAS QUE RECIBE EL ORDENADOR 



•MYRIAD. +3K. C/M. A/R. G/E. JY. LA MAS ESPECTACULAR j 
AERONAVE PARA DESTRUIR LAS CRIATURAS COSMICAS EN SU 

VIAJE GALACTICO 2.000 I 

• COSMIADS. 3,5K. C/M. A/R. G/E. JY. VERSION ULTRARRAPIDA 

DEL MUNDIALMENTE FAMOSO JUEGO GALAXIANS' . INCREIBLES | 

EFECTOS SONOROS 1.700 

• BLITZRIEG. 3.5K. C/M. A/R. G/E. JY. DESTRUYA LA CIUDAD I 
ENEMIGA CON SU BOMBARDERO. 25 NIVELES DE JUEGO 1 .600 | 

• DEFENSA. +8K. C/M. A/R. G/E. JY. N.° 1 EN INGLATERRA, 
COMO GUERRERO GALACTICO DEBE DEFENDER A LOS HUMA- J 
NOIDES CONTRA LOS ENEMIGOS CIBERNETICOS. 9 NIVELES DE I 
JUEGO. ESPECTACULAR NAVE Y SONIDOS 2.000 1 

• VIC PANIC. 3,5K. C/M. A/R. G/E. JY. VERSION DEL POPULAR I 
"SPACE PANIC". ESCALE LAS LADERAS Y HUYA DE LOS MONS- 
TRUOS 1 .800 I 



• SKRAMBLE. 3,5K. C/M. A/R. G/E. JY. ATRAVESANDO LOS TEMI- 
BLES PASADIZOS INTERESTELARES DESTRUYA LAS BASES ENEMIGAS 



1.900 



• 3D LABYRINTH. +8K. C/M. A/R. EXTRAORDINARY LABERINTO 
TRIDIMENSIONAL. 4SERA CAPAZ DE SALIR DE EL? UNO O VARIOS 
JUGADORES 1 .800 

• GOLF. 3,5K RECORRIDO DE 9 HOYOS PERO ATENCION A LOS OBS- 
TACULOS: ARBOLES, LAGOS, ETC. INCLUYE VIC MUSIC Y PIANO 1.600 

• CARRERA DE BUGGYS. 3,5K. C/M. A/R. G/E. ESPECTACULAR 
RECORRIDO. ACELERADOR. DECELERACION. 9 NIVELES 1.800 1 

• GRIDRUNNER. 3,SK. C/M. A/R. G/E. JY. IMPRESIONANTE VER- 
SION LLENA DE COLORIDO, MOVILIDAD Y SONIDO DEL POPULAR 
"CENTIPEDE" 1 .900 

• HI-RES. 3.5K. GRAN JUEGO DEMO/UTILIDAD PARA REALIZAR I 
EN PANTALLA GRAFICOS EN ALTA RESOLUCION. INCLUYE GEN. 
CARACTERES 1.500 1 

• ABDUCTOR. LAS CRIATURAS COSMICAS DEL PLANETA "ALPHA I" 
INTENTARAN SECUESTRAR A LOS HUMANOIDES PARA CONSEGUIR 
ENERGIA E INTELIGENCIA SUPERIORES. TU MISION SERA DEFEN- 
DER TU PLANETA Y DESTRUIR LAS NAVES ABDUCTORAS. (STAN- I 
DARD) 1.800 § 

• TRAXX. VERSION DEL CONOCIDO JUEGO "AMIDAR"; MEZCLA | 
DEL POPULAR "PACKMAN" Y DEL JUEGO "QUIX". 100% CODIGO 
MAQUINA. GRAFICOS EN ALTA RESOLUCION. ESPECTACULAR 
SONIDO Y COLOR. 8K DE MEMORIA 2.000 I 

• VIC BASE. 16K. POTENTE BANCO DE DATOS. 255 CARACTERES, | 
MAS DE 25 CAMPOS. CAMBIO Y LOCALIZACION, SALIDA IM- 

PRESORA 3.2001 

OPCION 3,5K 1-800 1 

• GRAPHVICS. +3K. ANADE 18 POTENTES COMANDOS PARA PO- 
SICIONAR PUNTOS, DIBUJAR LINEAS Y TEXTOS EN ALTA RESO- 
LUCION (152X160) 2.200 1 

• GRAPH EDITOR & SOFTKEY 24, 3,5K. AMBOS PROGRAMAS PER- 
MITEN DISENAR HASTA 64 CARACTERES PARA INCORPORARLOS 

A SUS PROPIOS PROGRAMAS Y JUEGOS 2.0001 



>3.200 



■ QUIZ SET-UP. EN TANDEM CON QUIZ— MASTER PERMITE LA ELA- 
BORACION POR EL USUARIO DE TODO TIPO DE PREGUNTAS Y 
CUESTIONES EDUCATIVAS O DE ENTRETENIMIENTO, EGB, IDIO- 
MAS, MATEMATICAS, HISTORIA, GEOGRAFIA, ETC. CREANDO 
UN AGIL Y ATRACTIVO SISTEMA DOMESTICO/EDUCATIVO 

FACEMAKER. 16K. CARICATURANDO EL ROSTRO DE SUS COMPA- 
NEROS Y AMIGOS EL VIC 20 PONDRA A PRUEBA EL VOCABULARIO 
Y LA ATENCION DEL NINO 2.000 



• NUMBER CHASER. 16K. PROGRAMA PARA PRACTICAS DE MUL- 1 
TIPLICACION CON CARRERAS DE COCHES, ADELANTA, FRENA, 
ACELERA SEGUN LAS RESPUESTAS. 4 NIVELES DE DIFICULTAD . . . 2.000 1 

• NUMBER GULPER. 16K. JUEGO EDUCACIONAL DE COMPETICION 

CON NUMEROS PARA SUMA, RESTA, MULTIPLICACION Y DIVISION 2.000 I 

• WE WANT TO COUNT. 16K PROGRAMA PARA NINOS A PARTIR 

DE TRES ANOS, INVASORES, CARRERAS, ETC 2.000 | 

• TWISTER. 16K. JUEGO DE LOGICA Y CONCENTRACION. PUZZLES 
GEOMETRICOS CON SONIDO Y COLOR 2.000 1 



VIC REVEALED 2.200 

GETTIN ACQUAINTED WITH YOUR VIC 

20 1.800 

50 PROGRAMAS LISTADOS I 1 .500 



ASSEMBLER 2.000 

SYNPHONY MELANCHOLY COMP 1 .800 

50 PROGRAMAS LISTADOS II 1.500 



ZAP! POW! BOOM! 1.800 

VIC INNOVATIVE 2.000 

50 PROGRAMAS LISTADOS III 1 .500 



G 
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CLUBS DE USUARIOS 



trabajando con 
ampliaciones de memoria 



por JAUME JULIA 

(del Club de Usuarios de Ordenadores Commodore de Barcelona) 



Lm as ampliaciones de memoria de 8 y 
16K modifican una serie de zonas en la 
memoria del ordenador. La memoria 
de pantalla pasa de las posiciones 
7680-8191 a las 4096-4607, el inicio de 
la memoria de color pasa de la posi- 
cion 38400 a la 37888 y, por ultimo, el 
inicio de la zona destinada a progra- 
mas en BASIC pasa de la posicion 4096 
a la 4608. Todo este «desbarajuste» 
implica que la mayoria de programas 
pensados para trabajar con la configu- 
racion minima no funcionen correcta- 
mente al conectar una expansion de 
memoria. Por otro lado, si deseamos 
utilizar un generador de caracteres 
propio con 8 6 16K en el VIC, no nos 
sirve ninguna de las formas explicadas 
hasta ahora en la Revista. 

Con el presente articulo pretendo 
solventar los problemas antes mencio- 
nados. Entra en tu VIC el programa 
numero 1 y guardalo (SAVE) en tu cas- 
sette o unidad de disco ANTES de eje- 
cutarlo. Una vez hayas hecho esto, 



Como nuestros lectores deben haber observado, los «CLUBS DE 
USUARIOS» —que habian cai'do en un ominoso silencio — empiezan a 
moverse de nuevo. Esperamos que cunda el ejemplo de forma masiva 
y que dentro de poco no nos quepan en nuestra Revista los originates 
y las noticias de los que estan en la mejor situacion para "trabajar" los 
secretos de nuestros ORDENADORES PERSONALES. Como el pre- 
sente ejemplo — que no dudamos en publicar a pesar de tocar este 
mismo tema en este numero, debido a su calidad— que esperamos re- 
suelva no pocos problemas a nuestros sufridos usuarios. 



ponlo en marcha (RUN). En la pantalla 
apareceran dos opciones: 

— Pulsando la tecla de funcion F1, 
el ordenador quedara configurado con 
la memoria, posicion de pantalla y co- 
lor e inicio de la zona de programa que 
tendria sin ninguna expansion conec- 
tada, con lo que funcionaran todos los 
programas pensados para trabajar con 
3.5K de memoria. 

— Pulsando la tecla de funcion F7, 
se reserva una zona de memoria (4096- 
7679) para el generador de caracteres, 
subrutinas en lenguaje maquina, panta- 



llas alternativas, etc. Esta zona esta 
completamente protegida contra la "in- 
vasion" de los programas en BASIC. 
La pantalla se situa en las posiciones 
7680-8191 y la memoria de color a par- 
tir de la posicion 38400. Estas posicio- 
nes son las mismas que tiene el VIC 
sin ninguna expansion conectada, por 
lo que estaras acostumbrado a mane- 
jarlas y te sera mas comodo progra- 
mar. 

En el caso de que desees crear un 
generador de caracteres en RAM, de- 
fies situarlo a partir de la posicion 





PROGRAMA NUMERO 1 




RERDV. 


Rfl-MR MED I ANTE:" 


RR CON Lfl MEMO-RIR ACTUAL" :END 




90 IFFRE(0:):>14000THENBV=16384 :GOT01 


160 PRINT'TCRSROHCRSROHSHIFSJI DE 




10 


SER TENER Lfl CON-FIGURACION DE MEMO 


10 POKE36866,150:POKES48,30 


100 BV=8192 


RIfl ERSE PULSE ' CSHIFF: 1 ' . " 


20 F0RJ=217T0228:P0KEJ, 158: NEXT 




170 PRINT":CRSRD][SHIFS3I DESEfl TRfl 




110 PRINT"CCRSRD3C RED IPOKE 36863. 


BRJRR CON EL GENERflOOR OE CflRAC-TER 


30 FORJ=229TO250 : POKE J , 1 59 : NEXT 


252" 


ES fl PRRT1R OE LR "; 


40 GOTO 130 


120 PRINT"CCRSRD:CCRSRD3DISPONE DE" 


180 PRINT"POSICION 4096 PULSE 'CSHIFF] 




BVBVTES" :PPIHT"PRRR SO PROGRRMR. " : 


7 ' . " 


50 P0KE56 , 30 :CLR : POKE4096 , : P0KE44 , 


MEW 




16:PRINT"C CLR ]**CONFIGURRCION BRS 




190 GETfl*:IFfl*<>" C Fl I"RNDH*0"C F7 I 


E**" 


130 P0KE36869,242 


"THEN 190 


60 PRINT"3583 BVTES LIBRES" :NEW 


143 PRINT'T CLR ] CSHIFRJCSHIFE] CSHIFRJ 


210 IFR*="[ Fl :"THENPOKE36869,240 




CSHIFJ]CSHIFUJ[SHIFSa:SHIFT3CSHIFEI 


:GOTO50 


70 POKE8192,0:PDKE44,32:PRINT"E CLR 3 


CSHIFDKSHIFE: CSHIFrmSHIFEHSHIFII] 




C0L06UE EL GENERADOR APRRTIR DE 409 


CSHIFOKSHIFRJCSHIFIHSHlFflJ" 


220 IFfl*="C F7 ]"THENPOKE36869,240 


6" 


150 IFFRE<8X8000THENPRINT"[CRSRD3CCRSRD: 


:GOTO70 


80 PRINT" CCRSRDJACTIVELO EN SU PROG 


CSHIFEJSTE PROGRRMR NO PUEDEFUNCION 


REROV. 
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4096. (El funcionamiento y construc- 
cion de un generador de caracteres 
se ha explicado exhaustivamente en 
otros numeros, por Io que no entro en 
detalles sobre este tema). Una vez 
tengas listo el generador — colocados 
todos los valores que Io forman a par- 
tir de la posicion 4096 — Io unico que 
tendras que hacer en tu programa, pa- 
ra activarlo, es colocar la instruccion 
POKE 36869,252. Para volver al gene- 
rador normal en ROM usa la siguiente 
instruccion: POKE 36869,240. Olvfdate 
de las posiciones 55 y 56, utilizadas en 
la creacion de generadores con la me- 
moria standard o la expansion de 3K. 
Para crear un generador con expansio- 
nes de 8 6 16K no debes utilizar estas 
posiciones para nada. 

Por ultimo, el programa numero 2 
es una version «comprimida» de una 
parte del programa numero 1 . Se en- 
carga de colocar al VIC en la configu- 
racion de memoria standard y despues 
cargar y ejecutar el programa que 
quieras. Mi consejo es que coloques 
este pequeno programa ANTES de ca- 
da uno de los programas que tengas 
que funcionen con 3.5K. De esta for- 
ma, cada programa constara de dos: 
el escrito aquf y el propio programa, 
o programa principal. De esta forma, 





-PROGRAMA NUMERO 2 — 


RERDV. 






10 


POKES 


6863 , 240 


P0KE36866, 158 :POKE 


64: 


3 , 30 






20 


FORJ= 


217T022S 


:P0KE,T,158:NEXT 


30 


FOR,T= 


229TO250 


POKE,!, 159: NEXT 


50 


POKES 


6.3S:CLR 


: POKE4096 , : P0KE44 , 


16 


:POKEl 


98,2 :P0KE631 ,147 :P0KE632, 13 


1 SHEW 






REHDV. 







todos los programas que funcionen 
con 3.5K funcionaran con CUALQUIER 
expansion de memoria, sin necesidad 
de desconectarla. Espero que este ar- 
ticulo te haya servido para compren- 
der un poco mas el diseno del orde- 
nador y te sea util para evitar los pro- 
blemas que conllevan las expansiones 
de 8 y 16K. 

A continuacion voy a comentar bre- 
vemente la funcion de las Ifneas clave 
del programa numero 1, ya que en 
ellas hay cosas muy interesante que 
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informAtica 



SANTjusf 

La primera tienda especializada en el VIC-20 

• PROGRAMAS EN CASSETTE, DISQUETTE, etc. 

• IMPRESORA, MONITORES • PROGRAMAS PROPIOS 

• SERVICIO TECNICO 



INTERFACE VIC-HAM para emitir y recibir en CWy RTTY (con cualquier equipo) 
Solicite mas informacion 



Calle Mayor, 2 - Tel. (93) 371 7043 - SAN JUST DESVERN (Barcelona) 



te pueden ser de utilidad en otros pro- 
gramas. 



LiNEA (S) 



DESCRIPCI6N 



10-30 Estas Ifneas se encargan de 
trasladar la posicion de me- 
moria de pantalla de las 4096- 
4607 a las 7680-8191. 
Con esta tecnica se pueden 
usar varias pantallas en un 
programa, para animacion, 
graficos, etc. 

50-60 Colocan la configuracion mi- 
nima en el VIC. POKE56.30 li- 
mita por arriba la memoria, de 
forma que el VIC-20 no pueda 
acceder en BASIC a posicio- 
nes mayores de 7679. POKE 
44,16 indica al ordenador que 
la zona destinada al BASIC 
se inicia en la posicion 4096 
(256*16 = 4096). Como que el 
primer byte de un programa 
debe contener el valor cero 
hacemos POKE 4096,0. Des- 
pues de los PRINT, en la linea 
60 se encuentra la instruccion 
NEW, necesaria siempre que 
movamos el inicio de la zona 
destinada al BASIC. 

70-120 Reserva una zona de memoria 
desde 4096 a 7679. Esto Io rea- 
liza la instruccion POKE 44,32 
que indica al VIC el principio 
de la zona destinada al BA- 
SIC. En este caso dicha zona 
empieza en la posicion 8192 
(32*256 = 8192) al igual que 
antes debemos colocar el va- 
lor cero en el primer byte de 
la zona de programa, por Io 
que hacemos POKE 8192,0. 
Despues se comprueba me- 
diante la memoria disponible 
si hay 8 6 16K conectados, pa- 
ra imprimir el correspondien- 
te mensaje. 

130 Pasamos a modo minusculas. 

150 Comprueba la memoria co- 
nectada. Si es menor de 8K, el 
programa finaliza, ya que no 
puede funcionar. 

190-220 Comprueba si hemos pulsado 
F1 6 F7 para pasar — despues 
de volver al modo mayuscu- 
las — a la parte del programa 
encargada de modificar la me- 
moria del VIC. 

NOTA: Para comprobar la tecla pul- 
sada en el programa se han escrito 
comillas y la tecla de funcion corres- 
pondiente, Io que da un simbolo inver- 
tido. Si tienes el cartucho de ayuda al 
programador conectado, este sistema 
no sirve. Sustituye las teclas de fun- 
cion por otras (por ejemplo, los nume- 
ros 1 y 2). n 
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MARKETCLUB 



• Programas VIC-20 y COMMODORE 64. Paqneies siandaid de clienies, ariiculos, eiiquelas, 
gesiion de cobros.'pagos, etc... Entiega inmediala. Programas a medida, plazo maximo de 
enlrega: 10 dias. Tel. 345 10 00, Sria. M. Jose (mananas) o 345 87 75 Sr. Martinez (fuera de horas 
de oficina o sabados manana). 

• Vendo VIC-20 con unidad de cassette y los dos curses de BASIC, todo por 35.000 ptas. 
Inleresados llamar a RAFAEL. Tel. : (93) 332 08 95. 

• Vendo modulo para VIC'20 compueslo de: dos puertas de ocho eniradas.'salidas mas dos 
de control y esiado. Dos iemporizadores programables. Posibilidad de interruption IRQ-NMI. 
Con las correspondientes instrucciones. Razon: Luis Torrents, el Velazquez, 39 - TERRASSA 
(Barcelona). 

• Hago programas en BASIC COMMODORE bajo encargo. Vendo VIC-20, con 16 K de RAM, 
carluchos de: Ayuda al Programador, Monitor Lenguaje Maquina, Superexpander + 3 K y 
tres juegos. Ademas se daran al comprador muchos programas hechos y comprados y 5 libros 
exisienles o no en Espana sobre el VIC. Todo por 65.000 ptas. (vale mas de 100.000 ptas.) Por 
separado iambien. Llamar al (91) 253 13 40. Horas comida y cena. Direction : Francisco Gu- 
tierrez. Santiago Rusifiol, 12 - MADRID-3. 

• Compraria equipo COMMODORE CBM serie 3000 (CPU-3032 y FLOPPY-3040), usado y en 
buenas conditiones. Llamar por la noche al (951) 23 86 72 o escribir al apartado numero 286 
de Almeria. 



TABLAS DE 
CODIGO ASCII y PET 

por JORDI SASTRE 

La TABLA 1 conliene los codigos «ASCII» de 
Commodore. La primera columna corresponde al 
valor decimal, la segunda al hexadecimal, y la 
lercera es el caracter ASCII correspondienle a ' 
cada codigo. A veces aparecen dos caracleres 
equivalentes a un solo valor ASCII; el primero 
corresponde a la visualization en palilalia eslan- 
do el ordenador en caja baja (minusculas/mavus- 
culas) y el segundo en caja alia (mayusculas/ 
graficos). 

Ejemplo: PRINT <<$» y PRINT CHR$(36) impri- 
men el signo de dolar. 

PRINT CHR$(65) imprime «a» o «A» segun la 
pantalla esie en caja baja o alia, respectivamente. 

PRINT CHR$(147) borra la pantalla. 

* — Estos caracleres de control solo esian dis- 
ponibles en los modelos CBM-8032 y CBM-4032 en 
version de pantalla de 12 pulgadas. 

2 — Notese que los caracleres 96 a 127 y 224 a 
255 son repeiitiones de los 32 a 63 y 160 a 191. Asi, 
PRINT CHR$(98) imprime el caracter de comillas 
("), pero no activa su flag especial de comillas. 

3 — Caracleres solo validos en el CBM-8032. 

La TABLA 2 es identica a la Tabla 1, salvo que 
en este caso se lrala de los codigos de la pan- 
talla, o codigo PET. EI codigo ASCII es el que 
se uliliza cuando se imprime mediante PRINT, 
el codigo PET corresponde a la impresion por 
POKE (o consulta por PEEK). Por ejemplo, para 
escribir en la pantalla una «A», se puede usat 
PRINT CHR$[193) o POKE x,65, siendo x el byte 
de pantalla deseado para la visualization. 

La TABLA 3 es una rapida reierencia de los 
graficos CBM indicando la tecla a la que co- 
rresponden (no valida para VIC ni C-64), el Co- 
digo ASCII (ver Tabla 1) y el codigo PET (vet 
Tabla 2). 



EL CLUB DE USUARIOS DE ORDENADORES 
COMMODORE EMPIEZA A MOVERSE 



Desde su nacimiento — hace aproxima- 
damente cuatro meses — se han lanzado 
muchos proyectos, algunos de los cuales 
son ya felizmente realidad. A continuation 
enumeramos los principales: 

— Biblioteca y programoteca. 

— Suscripcion a revistas extranjeras. 

— Formacion de equipos de trabajo para 
profundizar en aspectos especificos del 
ordenador y desarrollo de programas. 

— Intercambio de ideas y experiencias en- 
tre los socios. 

— Organizacion de cursillos: iniciacion al 
VIC-20 y C-64, el BASIC de Commodore, 
introduccion al lenguaje maquina, etc. 
Entre los servicios a los socios destaca- 

mos: 

— Acceso a la biblioteca. (Los socios que 
no vivan en Barcelona podran recibir 
fotocopias de los artfculos de su inte- 
rest 

— Intercambio de programas. 

— Recepcion periodica de circulares infor- 
mativas con programas, trucos, POKES, 
etcetera. 

— Mercado de ocasion: Compra, Venta, 
Cambio... 

— Descuentos especiales en los cursillos, 
accesorios y software. 

— Resolucion por parte de nuestro equipo 
tecnico de dudas sobre el ordenador y 
problemas de programacion. 
Ademas se estudiaran todas las suge- 

rencias para lograr un club «a la medida» 
de la mayoria de los socios. 

En la actualidad nos reunimos semanal- 
mente en una tienda de informatica, que 



nos ha cedido desinteresadamente sus 
instalaciones. Sin embargo, estamos ges- 
tionando el alquiler de un local para dispo- 
ner de mas espacio y comodidad, con lo 
que podremos ampliar todavia mas nues- 
tros objetivos. 

El importe de la inscripcion anual es de 
3.000 pesetas. Los socios que no vivan en 
Barcelona obtendran, en compensacion 
por no poder asistir a las reuniones, vales 
por 200 fotocopias gratuitas del material 
de nuestra biblioteca. Ademas, al formali- 
zar la inscripcion, los nuevos socios reci- 
biran una cassette conteniendo programas 
muy utiles. (Tenemos lista la cassette 
para el VIC-20 y a punto de terminar la 
del Commodore 64.) 



NOTA: Las actividades del Club estan 
centradas principalmente en los ordenado- 
res VIC-20 y C-64, aunque se admiten 
usuarios de CUALQUIER ordenador "Com- 
modore". 

Para formalizar la inscripcion, rellena el 
cupon adjunto y envfalo junto con un talon 
giro postal por el importe de la inscrip- 
cion ANUAL, a CLUB DE USUARIOS DE 
ORDENADORES COMMODORE. -Via 
Augusta, 120 - Barcelona-6. (r!sta es la 
direccion PROVISIONAL del Club. La defi- 
nitiva sera comunicada cuando hayamos 
encontrado el local apropiado.) 

Un ultimo consejo: Aunque no vivas en 
Barcelona, si en tu lugar de residencia no 
dispones de Club de Usuarios, inscribete 
en este. Ademas de las ventajas ya enu- 
meradas, el Club se encargara de poner 
en contacto a todos los socios de cada 
poblacion, con lo que mas adelante po- 
dreis formar vuestro propio Club. 

Te esperamos. 



CLUB DE USUARIOS DE ORDENADORES "COMMODORE" 



D.: 

Direccion: 

Poblacion: 



D.P. 



Provincia: 



Tel: 



Se afilfa al Club de Usuarios de Ordenadores «Commodore» por un ano pro- 
rrogable, mediante el pago de 3.000 PESETAS, importe de la cuota anual. Esta 
cuota me da derecho a disfrutar de los servicios y actividades que organice el 
Club. 



FIRMA DEL PADRE 
(Menoresde 18anos) 



Ordenador que poseo: 



FIRMA 
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Microprocesador: 6502 de MOS 
TECHNOLOGY de 8 bits. 
Memoria: 5 Kbytes de RAM ampliables a 32 K 
20 Kbytes de ROM ampliables a 28 K 
Pantalla: 23 lineas de 22 caracteres 
Modulador para conectar a un televisor 
normal. Salida para monitor de video. 
Colores: 8 para el marco, 16 para el fondo de 
la pantalla y ocho para los caracteres 
individuales, video inverse 
Graficos: Semi-graficos por teclado y alta 
resolucibn por redefinici6n del generador de 
caracteres (situandolo en RAM). Definici6n de 
176 por 184 puntos. 

Teclado: Tipo QWERTY de 62 teclas mas 
cuatro de funci6n definibles por el usuario. 
Sonido: Tres voces de tres octavas cada una 
decaladas una octava entre si, resultando una 
extensi6n total de cinco octavas. Un 
generador de ruido aleatorio afinable para 
efectos especiales, un control general de 
volumen. 

Programaci6n: Lenguaje BASIC, interprete 
residente en ROM de 8 K. Posibilidad de 
interceptar las funciones del Basic para crear 
nuevas instrucciones «a medida». El Basic del 
Vic es uno de los mas rapidos actualmente en 
el mercado. 

Complementos: Port de usuario de 8 bits 
entrada/salida mas dos sefiales de 
sincronismo. 

Bus de expansi6n para ampliaciones de 
memoria y perifericos. 
Port de juegos con conexi6n para dos 
potenci6metros (paddles), y una palanca de 
juegos (joystick). 

Almacenamiento de masa: Unidad de cassette 
~!2N de diseflo especial para registrar 
gramas y datos (ficheros secuenciales). 



Capacidad total: 174848 bytes por disco. 
Sentential: 168656 bytes por disco. 
Entradas de direct orio: 144 por disco. 
Sectores por pista: De 17 a 21. 
Bytes por sector: 256. 
Pistas: 35. 
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Bloques: 683 (644 bloques libres). 

Soportes de information: Discos estandar de 5 

1/4 pulgadas, de una sola cara y densidad 

simple. 

Sistema operativo: DOS de COMMODORE 

inteligente (tiene procesador propio y no 

ocupa memoria del ordenador central). 
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Metodo de impresi6n: Matriz de 5 x7 puntos, 

impacto por un solo martillo. 

Modo caracteres: Mayusculas y miniisculas, 

simbolos, niimeros y caracteres graficos del 

VIC-20. 

Modo grafico: Puntos direccionables (bit 

image). Siete puntos verticales por columna, 

480 columna maximo. 

Velocidad: 30 caracteres/segundo, de 

izquierda a derecha, unidirectional. 

Caracteres/Linea: Maximo 80. (Posibilidad de 

impresi6n en doble ancho). 

Espaciado entre lineas: 6 lineas/pulgada 

-modo caracteres, 9 lineas/pulgadas - modo 

grafico. 

Velocidad de salto de lineas: 5 saltos/seg. 

-modo caracteres, 7,5 saltos/seg. - modo 

grafico. 

Aliment acion de papel: Arrastre por tractor. 

Ancho de papel: Entre 4,5 y 8 pulgadas. 

Copias: Original mas dos copias. 



Ayuda programador: Este cartucho facilita la 
edicibn y depuracibn de programas en Basic. 
Instrucciones y comandos: RENUMBER, 
MERGE, FIND, CHANGE, DELETE, 
AUTO, TRACE, STEP, OFF, KEY, EDIT, 
PROG, DUMP, HELP y KILL. 

Super expander: Intercepta el Basic del VIC 
permitiendo incrementar sus instrucciones y 



comandos en aplicaciones graficas, de sonido 
y juegos. Instrucciones y comandos: KEY, 
GRAPHIC, COLOR, POINT, REGION, 
DRAW, CIRCLE, PAINT, CHAR, 
SCNCLR, SOUND, RGR, RCOLR, RDOT, 
RPOT, RPEN, RJOY y RSND. 

Monitor de lenguaje maquina: Este monitor 
altamente sofisticado facilita enormemente la 
depuracidn de programas en lenguaje 
maquina, es ideal como complemento del 
Basic para redactar y poner en marcha rutinas 
de alta velocidad y manejo de datos en tiempo 
real. Instrucciones y comandos: ASSEMBLE, 
BREAKPOINT, DISASSEMBLE, ENABLE 
VIRTUAL ZERO PAGE, FILL MEMORY, 
GO, HUNT, INTERPRET, JUMP TO 
SUBROUTINE, LOAD, MEMORY, 
NUMBER, QUICK TRACE, REGISTERS, 
REMOVE BREACPOINTS, SAVE, 
TRANSFER, WALK y EXIT TO BASIC. 

Ademas existen cartuchos de ampliacidn de 
memoria de 3, 8 y 16 Kbytes. 




En forma de libro se ha editado la 
primera parte de un curso de Basic que parte 
«de cero» y esta basado en el VIC-20. Va 
acompanado de dos cassettes con programas y 
ejercicios para autocontrol de los progresos en 
el aprendizaje. 




Acabado en metal de gran robustez, permite 
la conexibn de un maximo de 6 cartuchos 
simultaneamente, aloja al VIC y al modulador 
de video y permite colocar encima el televisor, 
tiene alojamiento para accesorios y asegura 
una bptima conexibn del VIC a sus perifericos. 
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